home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / vol15n11.zip / REXBOX.ZIP / CAPS.CMD < prev    next >
OS/2 REXX Batch file  |  1996-01-28  |  2KB  |  61 lines
  1. /* MCI REXX Sample #2 */
  2. /* Sample REXX Script */
  3. /* this script shows you how to query the capabilities of a CD device */
  4. /* you can use this script to determine which software functions      */
  5. /* will be available for your users.                                  */
  6.  
  7. rc = RXFUNCADD('mciRxInit','MCIAPI','mciRxInit')
  8. InitRC = mciRxInit()
  9.  
  10. /* Open the CD */
  11.  
  12. rc = mciRxSendString("open cdaudio alias supercd wait", 'Retst', '0', '0')
  13. rc = mciRxSendString("capability supercd can eject wait", 'Retst', '0', '0')
  14. If (Retst='TRUE') Then
  15.   say 'CD can perform software ejection'
  16. ELSE
  17.   say 'CD can not perform software ejection'
  18. rc = mciRxSendString("capability supercd can lockeject wait", 'Retst', '0', '0')
  19. If (Retst='TRUE') Then
  20.   say 'CD can prevent manual ejection of the CD'
  21. ELSE
  22.   say 'CD can not prevent manual ejection of the CD'
  23.  
  24. /* Some CD's can actually record.  However, current OS/2 Warp drivers don't */
  25. /* support this option                                                      */
  26.  
  27. rc = mciRxSendString("capability supercd can record wait", 'Retst', '0', '0')
  28. If (Retst='TRUE') Then
  29.   say 'CD is read/writable'
  30. ELSE
  31.   say 'CD is not read/writable'
  32.  
  33. /* Many older or lower-end CD's don't support volume control-check and   */
  34. /* find out what hardware capabilities are available.                    */
  35.  
  36. rc = mciRxSendString("capability supercd can setvolume wait", 'Retst', '0', '0')
  37. If (Retst='TRUE') Then
  38.   say 'CD can setvolume'
  39. ELSE
  40.   say 'CD can not set volume'
  41.  
  42. /* Digital Transfer lets your CD send data directly from the CD to your  */
  43. /* sound card without ANY loss in quality.  However, this option is very */
  44. /* CPU intensive--use with care                                          */
  45.  
  46.  
  47.  
  48.  
  49. rc = mciRxSendString("capability supercd can stream wait", 'Retst', '0', '0')
  50. If (Retst='TRUE') Then
  51.   say 'CD can do a digital transfer to your systems sound card'
  52. ELSE
  53.   say 'CD can not do a digital transfer to your systems sound card'
  54.  
  55.  
  56.  
  57. rc = mciRxSendString("close supercd wait", 'Retst', '0', '0')
  58. say 'Finished SuperCD capabilities'
  59. exit
  60.  
  61.